home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 October / Macworld CD 17.10.iso / pc / Data / Shareware / Utilities / KeyQuencer Lite 2.5.5 Installer / Developer Toolkit / Common Code / KQGestalt.c < prev    next >
Encoding:
Text File  |  1997-09-29  |  1.3 KB  |  32 lines  |  [TEXT/CWIE]
  1. //==============================================================================
  2. // KEYQUENCER GESTALT UTILITIES - VERSION 2.1 - MARCH 1997
  3. // By Alessandro Levi Montalcini <alm@torino.alpcom.it>
  4. // ©1994-97 Binary Software, Inc. <http://www.binarysoft.com>
  5. // This text looks best in monaco 9 font, 4 spaces per tab, no wrapping
  6. //==============================================================================
  7.  
  8. #include "KQGestalt.h"
  9.  
  10. //==============================================================================
  11. // Returns a pointer to the KeyQuencer glue record (defined in Extension.h)
  12. // or NIL if KeyQuencer is not running. Both the old shareware versions and
  13. // the new commercial versions are supported - you should check the glueRecVers
  14. // field of the glue record itself to see which routines are available.
  15.  
  16. GluePtr GetKeyQuencerGlue(void)
  17. {
  18.     GluePtr    glue;
  19.     long    response;
  20.     
  21.     if(Gestalt(kKQ20GestaltSelector, &response)==noErr
  22.     && ((INITGestaltRecPtr)response)->recType==kIGRecType)
  23.         glue = GET_KQ20_GLUE(response);
  24.     else if(Gestalt(kKQ12GestaltSelector, &response)==noErr
  25.     && ((KQGestaltPtr)response)->kqSignature==kKQ12GestaltSelector)
  26.         glue = GET_KQ12_GLUE(response);
  27.     else glue = 0L;
  28.     return glue;
  29. }
  30.  
  31. //==============================================================================
  32.